#!/usr/bin/perl

use warnings;
use strict;

open (SAMPLE, "sample.file");

foreach (<SAMPLE>) {
    if ( /^(Lori.*):.*:.*:[0-9]{1,2}\/[0-9]{1,2}\/([0-9]{1,2}):.*/ ) {
        my $age = 111 - $2;
        printf "%s is %d years of age.\n", $1, $age;
    }
}

close SAMPLE;
